﻿Module Module1
  Sub Main()

    Dim numeri() As Integer = _
    {1, 2, 3, 4, 5, 6, 7, 8, 9, 10}
    Dim pari = From n In numeri _
               Where n Mod 2 = 0 _
               Select n
    Dim messaggio As String = ""
    For Each p In pari
      messaggio &= CType(p, String) & " "
    Next
    Console.WriteLine(messaggio)
    Console.ReadLine()

  End Sub
End Module
